home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / white.bas < prev    next >
BASIC Source File  |  1991-10-18  |  5KB  |  101 lines
  1. 1 KEY (1) ON :ON KEY (1) GOSUB 65010:PLAY OFF
  2. 1000 '
  3. 1010 '  M-014 / WHITE GRASS　（Ｃ）
  4. 1020 '
  5. 1030 '  Composed & Arrenged by T.Skﾞy
  6. 1040 '
  7. 1050 SCREEN@ 0:PLAY OFF:BGM 1
  8. 1060 FOR I=0 TO 13:PART I,I:NEXT:GOSUB *TITLE
  9. 1070 LOAD@"Q:\FJ\FM\FMP.FMB":LOAD@"Q:\FJ\PCM\RYM_ALL4.PMB"
  10. 1080 T$="T126Q8U0%CL16"
  11. 1090 M1$="A8.FRRE-RR2"
  12. 1100 M2$="F8.GRRG#RR2":M3$="F8.GRRG#RF8.GRRG#R":M4$="F8.GRRG#RR8A8B-R"
  13. 1110 M5$="R8>E-E-D8CRD8.C8.<B-R":M6$=">C8.<B-8.GRB-2"
  14. 1120 M7$="R8>CC<B-8A-RG8.A-8.B-R":M8$="A-8.G8.FRB-4A-8GF&"
  15. 1130 M9$="F2.E-8FG&":M10$="Q7G1Q8"
  16. 1140 M11$="R8A-4A-RB-8.>C8.DR<":M12$="G2.R8FE-":M13$="F4.FRG8.A-8.B-R"
  17. 1150 M14$=">C4<B-4G2":M15$="G2.B-8>DE-&":M16$="E-4.E-E-F8.G8.A-R"
  18. 1160 M17$="A-8.G8.FRB-4>C8DE-&":M18$="E-4.E-E-D8.C8.<B-R>":M19$="Q7E-1Q8"
  19. 1170 B1$="O2Q5E-4F8.E-&E-E->Q7E-8<Q5E-E->Q7E-<Q5F&"
  20. 1180 B2$="FF>Q7F8<Q5GG>Q7G8<Q5G8G>Q7G<Q5F8D8"
  21. 1190 B3$="Q5F4G8.F&FF>Q7F8<Q5FF>Q7F<Q5G&"
  22. 1200 B4$="GG>Q7G8<Q5G#G#>Q7G#8<Q5A8A>Q7A<Q5G#8G8"
  23. 1210 B5$="Q5D8D>Q7D<Q5D>Q7D<Q5D>Q7D<Q5E-8E->Q7E-<Q5E->Q7E-<Q5E->Q7E-<"
  24. 1220 B6$="Q5F8F>Q7F<Q5F>Q7F<Q5F>Q7F<Q5A>Q7AQ5E-E->Q7E-4"
  25. 1230 B7$="O2Q5E-8E->Q7E-<Q5E->Q7E-8<Q5E-D8D>Q7D<Q5D>Q7D8.<"
  26. 1240 B8$="Q5C8C>Q7C<Q5C>Q7C8<Q5C<B-8B->Q7B-<Q5B->Q7B-8."
  27. 1250 B9$="<Q5A-8A->Q7A-<Q5A->Q7A-8<Q5A-G8G>Q7G<Q5G>Q7G8."
  28. 1260 B10$="<Q5F8F>Q7F<Q5F>Q7F8<Q5FE-8E->Q7E-<Q5E->Q7E-8.<"
  29. 1270 B11$="Q5F8.>Q7F<Q5E8.>Q7E<Q5E-8.>Q7E-<Q5D8.>Q7D<"
  30. 1280 B12$="Q5E-8E->Q7E-<Q5G>Q7G<Q5G>Q7GQ5R2"
  31. 1290 B13$="O1Q5A-8>Q7A-<Q5A-A->Q7A-8.<Q5RA-A->Q7A-<Q5A->Q7A-8<Q5A-"
  32. 1300 B14$="Q5G8>Q7G<Q5GG>Q7G8.<Q5RGG>Q7G<Q5G>Q7G8<Q5G"
  33. 1310 B15$="Q5F8>Q7F<Q5FF>Q7F8.<Q5RFF>Q7F<Q5F>Q7F8<Q5F"
  34. 1320 B16$="Q5E-8E->Q7E-<Q5G8G>Q7G<Q5B-8B->Q7B-Q5D8D>Q7D<"
  35. 1330 B17$="Q5E-8E->Q7E-<Q5E->Q7E-<Q5E->Q7E-<Q5R2"
  36. 1340 KA$="Q7A-A-A-A-A-RRRQ8A-8.A-R4":KE$="Q7E-E-E-E-E-RRRQ8E-8.E-R4"
  37. 1350 KC$="Q7CCCCCRRRQ8C8.CR4"
  38. 1360 KG$="Q7GGGGGRRRQ8G8.GR4":KD$="Q7DDDDDRRRQ8D8.DR4"
  39. 1370 KB$="Q7B-B-B-B-B-RRRQ8B-8.B-R4"
  40. 1380 KF$="Q7FFFFFRRRQ8F8.FR4"
  41. 1390 DM1$="C>F<C>F<":DM2$="C>F<CC16C16>F8<"
  42. 1400 D$="C8.C8.>F8<":DM3$=D$+D$:DM4$=D$+"C8>F8L16%R15FFFFL4<%C"
  43. 1410 DM5$=">F8.F16&F<RC16C16>F8<"
  44. 1420 SNS$="R2.L16O2%L15R64FFFF32.%C":SY1$="O6%L2@1C1&":SY2$="C1%C@2"
  45. 1430 J=0
  46. 1440 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  47. 1450 PLAY "@89O5V8","@89O5V8U-70","@85V11O5","@85V11O4","@85V11O4",,"@9O2V7U-60%R10","@9O2V7U60%L10","@2O1L4V13","@2V13U60"
  48. 1460 PLAY ,,,,,,B1$,B1$,DM1$,S1$
  49. 1470 PLAY ,,,,,,B2$,B2$,DM1$,S2$
  50. 1480 PLAY ,,,,,,B3$,B3$,DM1$
  51. 1490 PLAY ,,,,,,B4$,B4$,DM1$
  52. 1500 PLAY ,,,,,,B5$,B5$,DM3$
  53. 1510 IF J=4 THEN 1890
  54. 1520 PLAY ,,,,,,B6$,B6$,DM4$,SNS$
  55. 1530 '
  56. 1540 FOR I=0 TO 1
  57. 1550 PLAY M1$,M1$,"R2R8D8E-R8.","R2R8B-8B-R8.","R2R8G8GR8.",,B1$,B1$,DM2$,S1$
  58. 1560 PLAY M1$,M1$,"R2R8D8E-R8.","R2R8B-8B-R8.","R2R8G8GR8.",,B2$,B2$,DM2$,S2$
  59. 1570 PLAY M1$,M1$,"R2R8D8FR8.","R2R8>C8CR8.","R2R8A8AR8.",,B3$,B3$,DM2$
  60. 1580 PLAY M2$,M2$,"R2R8A8B-R8.","R2R8F8FR8.<","R2R8>D8DR8.<",,B4$,B4$,DM2$
  61. 1590 S1$="":S2$="":NEXT
  62. 1600 PLAY M3$,M3$,"R4.%LG#RR4.%RG#R",">R4.%LDRR4.%RE-R","R4.%LB-RR4.>%RCR",,B5$,B5$,DM3$
  63. 1610 PLAY M4$,M4$,"R4.%CG#RR8A8B-R8.","R4.%CDRR8F8FR8.<","<R4.%CB-RR8>D8D<R8.",,B6$,B6$,DM4$,SNS$
  64. 1620 '
  65. 1630 FOR I=0 TO 1
  66. 1640 PLAY "@90O5V10"+M5$,"@90O5V10U-70"+M5$,"O5V8E-RE-RE-RRRD8.DR4","O5V8CRCRCRRR<B-8.B-R4","O4V8A-RA-RA-RRRA-8.A-R4",,B7$,B7$,DM1$,SY1$
  67. 1650 PLAY M6$,M6$,"C8.CR4<B-8.B-R4>","A-8.A-R4G8.GR4>","F8.FR4E-8.E-R4",,B8$,B8$,DM1$,SY2$
  68. 1660 PLAY M5$,M5$,"Q7E-E-Q8E-8E-RRRD8.DR4","Q7CCQ8C8CRRR<B-8.B-R4","Q7A-A-Q8A-8A-RRRA-8.A-R4",,B7$,B7$,DM1$
  69. 1670 PLAY M6$,M6$,"C8.CR4<B-8.B-R4>","A-8.A-R4G8.GR4","F8.FR4E-8.E-R4",,B8$,B8$,DM1$
  70. 1680 PLAY M7$,M7$,"CRCRCRRR<B-8.B-R4","A-RA-RRRA-RG8.GR4","FRFRFRRRE-8.E-R4",,B9$,B9$,DM1$
  71. 1690 IF J=1 OR J=3 THEN 1840
  72. 1700 PLAY M8$,M8$,"A-8.A-R4G8.GR4","F8.FR4E-8.E-R4","D8.DR4C8.CR4",,B10$,B10$,DM1$
  73. 1710 PLAY M9$,M9$,"F2.]A-4","D2.]F4","<B-2.>]D4",,B11$,B11$,DM1$
  74. 1720 PLAY M10$,M10$,"GRGRG8GGR2[","E-RE-RE-8E-E-R2[","CRCRC8CCR2[",,B12$,B12$,"C>L8FF16F16<C>F>>L16%L5G%CC<%R5F8<<L4%C"
  75. 1730 NEXT
  76. 1740 PLAY M11$,M11$,KA$,KE$,KC$,,B13$,B13$,DM1$,SY1$
  77. 1750 PLAY M12$,M12$,KG$,KD$,"<"+KB$,,B14$,B14$,DM1$,SY2$
  78. 1760 PLAY M13$,M13$,KF$,KC$,KA$,,B15$,B15$,DM1$
  79. 1770 PLAY M14$,M14$,KG$,KD$,KB$+">",,B14$,B14$,DM1$
  80. 1780 PLAY M11$,M11$,KA$,KE$,KC$,,B13$,B13$,DM1$
  81. 1790 PLAY M15$,M15$,KG$,KD$,"<"+KB$,,B14$,B14$,DM1$
  82. 1800 PLAY M16$,M16$,KF$,KC$,KA$,,B15$,B15$,DM1$
  83. 1810 PLAY M10$,M10$,KG$,KD$,KB$+">",,B14$,B14$,DM1$
  84. 1820 PLAY "GRGRG8GGR2","GRGRG8GGR2","]GRGRG8GGR2[","]E-RE-RE-8E-E-R2[","]CRCRC8CCR2[",,B12$,B12$,"C>L8FF16F16<C>F>>L16%L5G%CC<%R5F8<<L4%C"
  85. 1830 J=J+1:GOTO 1640
  86. 1840 PLAY M17$,M17$,"A-8.A-R4G8.GR4","F8.FR4E-8.E-R4","D8.DR4C8.CR4",,B10$,B10$,DM1$
  87. 1850 PLAY M18$,M18$,">E-2.<]B-4>","B-2.]G4","G2.]E-4",,B16$,B16$,DM1$
  88. 1860 PLAY M19$,M19$,"E-RE-RE-8E-E-R2[","B-RB-RB-8B-B-R2[","GRGRG8GGR2[",,B17$,B17$,"C>L8FF16F16>>L16%L8B32B32BBB%L5G%CC<%R5F8<<L4%C"
  89. 1870 J=J+1:S1$=SY1$:S2$=SY2$
  90. 1880 GOTO 1450
  91. 1890 '
  92. 1900 PLAY ,,,,,,B6$+"&E-4",B6$+"&E-4",D$+"C8>F8%R15FR","R2.%L15O2R64F4R8.R32.","@1O6L2V15R2.C2"
  93. 1910 GOTO 65000
  94. 1920 *TITLE
  95. 1930 CLS:LINE(100,30)-(550,130),PSET,1,BF
  96. 1940 SYMBOL(150,50),"ＷＨＩＴＥ ＧＲＡＳＳ",2,2,7,0,PSET,23
  97. 1950 SYMBOL(400,100),"ｂｙ 菅井つばめ　（Ｃ）",1,1,7,0,PSET,22
  98. 1960 RETURN
  99. 65000 BGM 0:PLAY "R64":BGM 1
  100. 65010 KEY (1) OFF:PLAY OFF:FOR I=0 TO 13:PART I,I:NEXT:RUN"MENU.BAS"
  101.